home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / wtek0693.zip / OOPALLEY.ZIP / SET.V < prev    next >
Text File  |  1990-03-30  |  365b  |  40 lines
  1.  
  2. Test class Set
  3. s = Set[
  4. (1 @ 1)
  5. (1 @ 2)
  6. (1 @ 3)]
  7.  
  8. s.includes(C): 1
  9. t == s: 1
  10. s.includes(C): 0
  11. t == s: 0
  12. s = Set[
  13. (1 @ 1)
  14. (1 @ 4)
  15. (1 @ 2)]
  16.  
  17. t = Set[
  18. (1 @ 1)
  19. (1 @ 2)
  20. (1 @ 3)]
  21.  
  22. s&t = Set[
  23. (1 @ 1)
  24. (1 @ 2)]
  25.  
  26. s|t = Set[
  27. (1 @ 1)
  28. (1 @ 4)
  29. (1 @ 2)
  30. (1 @ 3)]
  31.  
  32. s-t = Set[
  33. (1 @ 4)]
  34.  
  35. s.asOrderedCltn: OrderedCltn[
  36. (1 @ 1)
  37. (1 @ 4)
  38. (1 @ 2)]
  39.  
  40.